(mark_object): Do set ARRAY_MARK_FLAG for bool-vectors.

diff --git a/src/alloc.c b/src/alloc.c
index bb27a5df10930c2b69015c36491c8781373007bd..71870839916b541fb405afee78fb129eb05b466d 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1822,7 +1822,13 @@ mark_object (argptr)
        }
 #endif /* MULTI_FRAME */
       else if (GC_BOOL_VECTOR_P (obj))
-       ;
+       {
+         register struct Lisp_Vector *ptr = XVECTOR (obj);
+
+         if (ptr->size & ARRAY_MARK_FLAG)
+           break;   /* Already marked */
+         ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */
+       }
       else
        {
          register struct Lisp_Vector *ptr = XVECTOR (obj);